BEGIN {i=65;s=0;lowcase ="^a.*";letter ="^A.*";rletter = "A"} {
        orig=$1
        if ( $1 ~ /^[0-9]/ ) { 
        gsub(/^[0-9]/,"A",$1)
        }
        if ( $1 ~ "The" ) { 
        gsub(/The /,"",$1)
        }
        comp = $1
        if ( comp !~ letter && comp !~ lowcase ) {
                for ( x=i;x<=100; ++x ){
                l = (x + 32)
                letter = sprintf("^%c.*", x)
                lowcase = sprintf("^%c.*", l)
                rletter = sprintf("%c", x)
                if ( comp ~ letter || comp ~ lowcase ) {i=x;s=0;break}
                }
        }
        if ( (comp ~ letter || comp ~ lowcase ) && s==0 ) {
        printf ("<DT><A NAME=\""rletter"\"><B><B>"rletter"</B></B></A><DD><a href=file:///tmp/httpd/.products/"$2"/index.html><B>"orig"</B></a><i> from </i><b>"$3"</b>")
        print "<br>" ;s=2 
        }
        if ( (comp ~ letter || comp ~ lowcase) && s==1) {
        print "     <DD><a href=file:///tmp/httpd/.products/"$2"/index.html><B>"orig"</B></a><i> from </i><b>"$3"</b>"
        print "<br>" 
        }
        s=1
        }